0 REM SET SPRITES (AUG 25/84)         :
1 :
2 REM 6 STATEMENTS, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 27
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/COLSPR    COLSP    3530    031
8 REM S/SSPR      SSP      3550    032
9 REM S/CSPR      CSP      3560    033
10 REM S/XSPR     XSP      3574    034
11 REM S/YSPR     YSP      3628    035
12 REM S/XYSPR    XYSP     3656    036
13 :
14 REM U/CHKSPR (3664/037)
15 REM U/RASCHK (3676/038)
16 REM D/POWERS (3694/039)
17 :
18 REM ================================
19 :
108 .ASC "COLSP[210]SSP[210]CSP[210]"
109 .ASC "XSP[210]YSP[210]XYSP[210]"
1108 .WORD COLSP-1,SSP-1,CSP-1
1109 .WORD XSP-1,YSP-1,XYSP-1
3530 COLSP JSR CHS1
3532 TXA
3534 PHA
3536 JSR $B7F1
3538 PLA
3540 TAY
3542 TXA
3544 STA $D027,Y
3546 RTS
3548 ;
3550 SSP JSR CHS1
3552 LDA POWERS,X
3554 ORA $D015
3556 BNE CSP1
3558 ;
3560 CSP JSR CHS1
3562 LDA POWERS,X
3564 EOR #$FF
3566 AND $D015
3568 CSP1 STA $D015
3570 RTS
3572 ;
3574 XSP JSR CHS1
3576 STX T3
3578 JSR $AEFD
3580 JSR $AD8A
3582 JSR $B7F7
3584 LDA $15
3586 CMP #2
3588 BCS XS3
3590 LDX T3
3592 ROR
3594 LDA POWERS,X
3596 BCC XS1
3598 ORA $D010
3600 BCS XS2
3602 XS1 EOR #$FF
3604 AND $D010
3606 XS2 TAY
3608 TXA
3610 ASL
3612 TAX
3614 LDA $14
3616 JSR RASCHK
3618 STY $D010
3620 STA $D000,X
3622 RTS
3624 XS3 JMP $B248
3626 ;
3628 YSP JSR CHS1
3630 YS1 TXA
3632 ASL
3634 PHA
3636 JSR $B7F1
3638 TXA
3640 TAY
3642 PLA
3644 TAX
3646 TYA
3648 JSR RASCHK
3650 STA $D001,X
3652 RTS
3654 ;
3656 XYSP JSR XSP
3658 LDX T3
3660 BPL YS1
3662 ;
3664 CHKSPR JSR $73
3666 CHS1 JSR $B79E
3668 CPX #8
3670 BCS XS3
3672 RTS
3674 ;
3676 RASCHK PHA
3678 RAS1 LDA $D012
3680 SBC $D001,X
3682 BCC RAS2
3684 CMP #$2B
3686 BCC RAS1
3688 RAS2 PLA
3690 RTS
3692 ;
3694 POWERS .BYTE 1,2,4,8,16,32,64,128
3696 ;